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Procedure HandleJoin(^p, n, 5) 
parameters 

gp Multicast group to join 

n Neighbor n transmitter of request 

s Node originating join request 
begin 

if(5 = i) 

return; I we don't want join loops, so ignore,., ] 
endif 

g 4- {grou-p x\x € MRTiyX, group gp}; 

if(5 = 0) 

[ Group is unknown ] 

g.group ^ gp; 

g.status ^ g.status A NOTJdEMBER\ 
MRTi METi U {g}; 
endif 

if (i € CORESgp) 

I this node is one of tihe cores ] 

g.status g.status A CORE; 

core i\ 
else 

core ^ {node k\k £ CAMf^}; 
endif 

if ( core 4" 0 ) 

if (isDuplex{i,5)) 

call HandleJoinAmDupIex(^p, 5); 
else 

callHandIeJoinAmNotDuplex(5P, core, s); 
endif 
endif 
end 
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Procedure HandIeJoinAmNotDuplex(p, n, k, s) 
parameters 

g Multicast group to join 
n Neighbor n transmitter of request 
k Chosen core for multicast group g 
3 Node originating join request 

begin 

if ( {Bnb j n6 G iVf , nb.status = DUPLEX and nbi^n}) 
[ Any neighbor already a duplex member? ] 
g.staius 4- g.status A DUPLEX; g.modified TRUE; 
call HandleJoinAmDuplex(^, n, s); 
return; 

endif 

ifCPEND? =fd) 

I no pending duplex/ simp lex join ] 
nb i- cailNextHop2Core(fc); 
if (nfe^0) 

p.address -f- n; 

p.status i- p.status A DUPLEX; 
PEND^ i- PENDf U {p}; 
if ( n = i and n ^ LR^) 
Ir.address -f- n; 

It, status i- Ir. status A PENDING; 
LRf <r- LRI U {Ir}; 
endif 

call scnd( JO J7V, g, nb, s); 
endif 

else [ There is a pending request. ] 
p-^r-ixlxS PEND?}; 
it (p.address = « and n 5^ i) 

p.address -(r- n; [ Previous request was local ] 
endif 

p.status p.status A DUPLEX; 
endif 
end 
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Procedure HandlePoshJoin(pp, n, s, src) 
parameters 

gp Multicast group to join 
n Neighbor n transmitter of request 
s Node originating push join request 
src Node that is source of multicast data traffic 
begin 

if (5 = 0 

return; [ no loops, so ignore,.. ] 
endif 

g {group x\xe MRTi, x. group = op); 
if(^ = 0) 

[ Group is unknown ] 
g.group i- gp; 

g.status 4- g.status A NOTJAEMBER; 
MRTi ^ MRTi U {g)\ 
endif 

if ( isDirectlyConnected(t, src) ) 

[ SoTirce of traffic is attached to me 3 

call HandlePushJoinDC(^p, n, 5, src)\ 
else 

call HandlePushJoinNonDC(pp, n, s, src); 
endif 
end 
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Procedure HandlePushJoinNonDC(p, n, s, src) 
parameters 

g Multicast group to join 

n Neighbor n transmitter of request 

s Node originating join request 

src Node that is source of multicast data traffic 
begin 

if ( {3p I p 6 PENDPJ?,p,sender = src} ) 

I Ignore PJ for an existing sender, ] 
[ but update info if this node started pj ] 
if ( p.addreas = % ) 
p.address ^ n; 
endif 

else 

nb call NextHop(5rc); 
if (7267^0) 

p.address n; 

p.sender arc, 

p.status 4- pMatus A NOTMEMBER\ 
p.anchor ^ NOT^NCHOR\ 
PENDPJf ^ PENDPJf U {p]\ 
call s^ndiPUSH^JOIN, g, nh, src, s); 
endif 
endif 
end 
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